home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 July / EnigmA AMIGA RUN 20 (1997)(G.R. Edizioni)(IT)[!][issue 1997-07 & 08][EAR-CD IV].iso / earcd / dev / amos / moreusel.lha / RemoveComment.AMOS / RemoveComment.amosSourceCode
AMOS Source Code  |  1997-04-18  |  1KB  |  39 lines
  1. ' *********************************  
  2. ' *                               *  
  3. ' *      Remove Comment V1.0      *
  4. ' *   Geschrieben von C. Hodges   *
  5. ' *                               *
  6. ' *********************************
  7. Screen Open 0,640,256,2,$8000
  8. Curs Off : Palette 0,$FFF
  9. Print "Remove Comment V1.0" : Print 
  10. F$=Fsel$("*.AMOS","","Bitte w�hlen Sie die Datei, bei der","Sie die Kommentare l�schen wollen!")
  11. If F$="" Then End 
  12. Print "Lade ";F$
  13. Open In 1,F$ : L=Lof(1) : Close 1
  14. Reserve As Work 9,L
  15. Bload F$,Start(9)
  16. Print : Print "Entferne Kommentare:"
  17. NOCOMMENT[Start(9),L,F$-".AMOS"+"C"+".AMOS"]
  18. Print : Print "Fertig!"
  19. End 
  20. Procedure NOCOMMENT[ST,L,FILE$]
  21.   NL=L : Add ST,20 : LE=Leek(ST-4) : NLE=LE
  22.   Repeat 
  23.     D=Deek(ST+2) : AD=Peek(ST)*2
  24.     If D=$652 or D=$64A Then Gosub COMMENT
  25.     Add ST,AD
  26.   Until ST=>Start(9)+NLE
  27.   Loke Start(9)+16,NLE
  28.   Bsave FILE$,Start(9) To Start(9)+NL
  29. Pop Proc
  30. COMMENT:
  31.   For A=0 To Deek(ST+4)
  32.     Print Chr$(Peek(ST+A+6));
  33.   Next 
  34.   Print 
  35.   Copy ST+AD,Start(9)+L To ST
  36.   Add NL,-AD : Add NLE,-AD
  37.   AD=0
  38. Return 
  39. End Proc